home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tg.d64 / graph plotter.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  47 lines
  1. 100 PRINT"[147]":POKE53281,0:POKE53280,6
  2. 110 FORI=1230TO1261:POKEI,114:POKEI+54272,5:NEXT:REMTOP
  3. 120 FORI=1270TO1790STEP40:POKEI,107:POKEI+54272,5:NEXT:REM LEFT
  4. 130 FORI=1301TO1821STEP40:POKEI,115:POKEI+54272,5:NEXT:REM RIGHT
  5. 140 FORI=1830TO1861:POKEI,113:POKEI+54272,5:NEXT:REM BOTTOM
  6. 150 FORI=1351TO1380:POKEI,67:POKEI+54272,5:NEXT
  7. 160 FORI=1471TO1500:POKEI,67:POKEI+54272,5:NEXT
  8. 170 FORI=1591TO1620:POKEI,67:POKEI+54272,5:NEXT
  9. 180 FORI=1711TO1740:POKEI,67:POKEI+54272,5:NEXT:PRINT:PRINT:PRINT
  10. 190 PRINT:PRINTSPC(4)"15":PRINTSPC(4)"14":PRINTSPC(4)"13":PRINTSPC(4)"12"
  11. 200 PRINTSPC(4)"11":PRINTSPC(4)"10":PRINTSPC(5)"9":PRINTSPC(5)"8"
  12. 210 PRINTSPC(5)"7":PRINTSPC(5)"6":PRINTSPC(5)"5":PRINTSPC(5)"4":PRINTSPC(5)"3"
  13. 220 PRINTSPC(5)"2":PRINTSPC(5)"1":PRINTSPC(5)"0"
  14. 230 PRINTTAB(9)"A"SPC(4)"B"SPC(4)"C"SPC(4)"D"SPC(4)"E"SPC(4)"F"
  15. 240 IFZ$="Y"THEN310
  16. 250 DATAA,B,C,D,E,F
  17. 260 FORI=1TO6:READA$(I):NEXTI
  18. 270 DATA7,6,4,13,8,14
  19. 280 FORI=1TO6:READD(I):NEXTI
  20. 290 DATA1792,1797,1802,1807,1812,1817
  21. 300 FORI=1TO6:READA(I):NEXTI
  22. 310 C=54272:FORJ=1TO6
  23. 320 FORK=1971TO1975:POKEK,32:NEXTK:PRINT"":FORL=1TO22:PRINT:NEXTL
  24. 330 PRINT"VALUE FOR COLUMN ";A$(J);"(0-15) ";
  25. 340 INPUTA$:IFVAL(A$)=0THEN320
  26. 350 AA=VAL(A$):AA=INT(AA+.5):D=D(J):X=A(J)
  27. 360 IFAA<0ORAA>15THEN320
  28. 370 A=A(J)-(AA*40)+80:GOSUB430:NEXTJ
  29. 380 PRINT"":FORI=1TO22:PRINT:NEXT:FORI=1971TO1983:POKEI,32:NEXT
  30. 390 PRINT"WISHTO DO IT AGAIN? (Y/N)"
  31. 400 GETZ$:IFZ$=""THEN400
  32. 410 IFZ$="Y"THEN100
  33. 420 END
  34. 430 IFAA=1THEN530
  35. 440 IFAA=0THENRETURN
  36. 450 POKEX,160:POKEX+1,231:POKEX+2,105
  37. 460 POKEX+C,D:POKE(X+1)+C,D:POKE(X+2)+C,D:IFAA=2THEN490
  38. 470 FORI=X-40TOASTEP-40:POKEI,160:POKEI+1,231:POKEI+2,160
  39. 480 POKEI+C,D:POKE(I+1)+C,D:POKE(I+2)+C,D:NEXTI:GOTO510
  40. 490 POKEA,247:POKEA+1,208:POKEA+2,105
  41. 500 POKEA+C,D:POKE(A+1)+C,D:POKE(A+2)+C,D:GOTO530
  42. 510 POKEA,247:POKEA+1,208:POKEA+2,224
  43. 520 POKEA+C,D:POKE(A+1)+C,D:POKE(A+2)+C,D
  44. 530 POKEA-40,233:POKEA-39,160:POKEA-38,206
  45. 540 POKE(A-40)+C,D:POKE(A-39)+C,D:POKE(A-38)+C,D
  46. 550 RETURN
  47.